| !NFSClient.!Run, Dickon Hood, dickon@fluff.org
| With help from Ben Dooks, ben@doggysoft.co.uk
|
| any problems should be mailed to dickon@fluff.org
|
| Version 1.08, Fri, 05 Sep 97 15:01:35 BST

Set NFSClient$Path Resources:Resources.NFSClient.,<Obey$Dir>.Resources.
Set NFSClient$Dir <Obey$Dir>
Set NFSSource$Path <Obey$Dir>.^.
Set Alias$@RunType_b05 Run <NFSClient$Dir>
Set File$Type_B05 NFSMount

IconSprites NFSClient:!Sprites
RMEnsure Sculptrix 2.01 RMRun NFSClient:Sculptrix
RMEnsure Sculptrix 2.01 Error "NFSClient needs Sculptrix 2.01 to run"

| Check to see whether we are already running.

Set NFSClient$Running 1
RMEnsure NFSClient 0.00 Set NFSClient$Running 0

IF "<NFSClient$Running>"="1" then RMKill NFSClient

| Check which internet stack we are going to be running on.
| Changed to default to the Internet stack if both are running.  This is to
| make life easier for myself when developing...

RMEnsure Internet 0.00 Error "There is no Internet stack running"

| Check to see which name resolver we've got running.  ANT have squelched all
| over Internet_GetHostByAddr which I use rather a lot...  If there's no name
| resolver running, you will only be able to use IP addresses as opposed to
| names.  Matters are further complicated by Stewart Brodie's DNResolver -
| a replacement for both (tests to see which it thinks is being called, then
| [mis]behaves appropriately...)

| NFSClient$Resolver = 3 => Stewart Brodie's DNSResolver running, with or without a fake INetDB
| NFSClient$Resolver = 2 => ANT's Resolve module running
| NFSClient$Resolver = 1 => INetDB proper running
| NFSClient$Resolver = 0 => No resolver running; numeric addresses only.

| Got too complex, so is now in a seperate BASIC proglet...

Run NFSClient:Resolver

| If the line below is commented out, no error will be produced if there is no
| resolver running at all, and you will only be able to use numeric addresses.

| If "<NFSClient$Resolver>" = "0" then Error "There's no name resolver running."

IF "<Wimp$State>" = "desktop" then RMRun <NFSClient$Dir>.nfs-bsd else RMLoad <NFSClient$Dir>.nfs-bsd
